home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 May: Tool Chest / Dev.CD May 00 TC.toast / pc / tool chest / quicktime / quicktime tools / quicktime xcmds / qtpict stack / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-06-12  |  3.1 KB  |  25 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>5</cardCount>
  7.     <cardID>4547</cardID>
  8.     <listID>2178</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>576</width>
  14.         <height>392</height>
  15.     </cardSize>
  16.     <script>function ExtractFileName FileName
  17. put ":" into Delimiter
  18. if Delimiter is in FileName then
  19. repeat with CharPos = length(FileName) down to 1
  20. if char CharPos of FileName = Delimiter
  21. then return char CharPos+1 to length(FileName) of FileName
  22. end repeat
  23. return empty
  24. else
  25. return FileName
  26. end if
  27. end ExtractFileName
  28.  
  29. function ExtractPathName FileName
  30. put ":" into Delimiter
  31. repeat with CharPos = length(FileName) down to 1
  32. if char CharPos of FileName = Delimiter
  33. then return char 1 to CharPos of FileName
  34. end repeat
  35. return empty
  36. end ExtractPathName
  37.  
  38. on openStack
  39. Logo
  40.  
  41. put empty into foo
  42. QTPict version
  43. put the result into v
  44. put "QTPict: " & v into line 1 of foo
  45.  
  46. put foo into cd field versions of card 1
  47.  
  48. buildPopUp
  49. end OpenStack
  50.  
  51. on openCard
  52. Logo
  53. pass openCard
  54. end openCard
  55.  
  56. on moveWindow
  57. Logo
  58. end moveWindow
  59.  
  60. on closeStack
  61. AllClip
  62. pass closeStack
  63. end closeStack
  64.  
  65. on Logo
  66. AllClip
  67. QTPict DisplayPict,QTLogo,topLeft of bg btn "go card",resource
  68. get the result -- rectangle is returned if no error
  69. if "Error" is not in it then QTPict DiffClip,it
  70. end Logo
  71.  
  72.  
  73. on newCard
  74. buildPopUp
  75. end newCard
  76.  
  77. on buildPopUp
  78. global menuItems
  79. put empty into menuItems
  80. repeat with i = 1 to the number of cards
  81. get the short name of card i
  82. put it & "," after menuItems
  83. end repeat
  84.  
  85. delete last char of menuItems -- the last comma
  86.  
  87. end buildPopUp
  88.  
  89. on GoCard
  90. global menuItems
  91.  
  92. if there is a window "live video" then send videoOff to window "live video"
  93. get PopUpMenu (menuItems, 0, bottom of the target, left of the target+1)
  94. if there is a window "live video" then send videoOn to window "live video"
  95.  
  96. if it > 0 then
  97. go card it --of this bg
  98. end if
  99. end GoCard
  100.  
  101. on AllClip
  102. QTPict ClipTo,"0,0,1280,1280"
  103. end AllClip
  104.  
  105. on mouseDown
  106. Logo
  107. end mouseDown
  108.  
  109. on primeStack
  110. set lockmessages to true
  111. repeat with i = 1 to the number of cards
  112. go card i
  113. send primeCard to card i
  114. end repeat
  115.  
  116. go first card
  117. end primeStack
  118.  
  119. on primeCard
  120. if there is a field filename then
  121. put  "Your Volume:Your Folder:Your File" into field filename
  122. end if
  123. if there is a cd field "help text" then
  124. set lockText of cd field "help text" to true
  125. --hide cd field "help text"
  126. end if
  127. end primeCard
  128. </script>
  129.     <background id="2806" file="background_2806.xml" name="" />
  130.     <background id="4201" file="background_4201.xml" name="" />
  131.     <card id="4547" file="card_4547.xml" marked="false" name="QTPict" owner="4201" />
  132.     <card id="3005" file="card_3005.xml" marked="false" name="DisplayPict" owner="2806" />
  133.     <card id="3802" file="card_3802.xml" marked="false" name="CompressPict" owner="2806" />
  134.     <card id="3931" file="card_3931.xml" marked="false" name="FileSize & ScreenDepth" owner="2806" />
  135.     <card id="4967" file="card_4967.xml" marked="false" name="Display Movie Thumbnails" owner="2806" />
  136. </stack>
  137.